Q PAGE I DTCOPY SRC 



o 



/ DECTAPE COPY PRUGKAM T, FLEISCHMANN 9/70 

O / DIGITAL. EQUIPMENT CORP. MAYNARO, MA O 

/HODIPIED BY R, SCHOONOVER i2/7l 

/HQDIFIED BY ED HILTON 5/5/72 

o / o 

/PROGRAM COPIES AN ENTIRE DECTAPE FROM SPECIFIED INPUT UNIT 
/TO OUTPUT UNIT. FIRST PASS DOES A READ-WRITE SEQUENCE 
O /PQWN ENTIRE TAPE. SECOND PASS DOES A READ-READ SEQUENCE O 

/IN REVERSE BACK TO BOT. 

/ 

O /DECTAPES HU5T BE STANDARD FORMAT C578 OR 576 BLOCKS O 

/256WQRDS/UL0CK). 

/ 
O /IF THE INPUT TAPE HAS 1102 BLOCKS AND THE OUTPUT TAPE O 

/HAS am, A WARNING WILL BE ISSUED. THIS WARNING MAY 

/BE IGNORED IF INPUT TAPE FILES 'HEHE WRITTEN VIA ADVANCED 
O /SOFTWARE, SINCE BLOCKS Ufe?0 AND Uai ARE NOT WRITTEN UNDER O 

/THAT SYSTEM. 

/ 
O /IF DURING PASS2 A DATA COMPARE ERROR IS ENCOUNTERED, AN O 

/ERROR MESSAGE WILL BY TYPED. 

/PROGRAM USES A DATA BUFFER WHOSE SIZE IS A FUNCTION A AVAILABLE CORE 
Q /6K FOR AN 8K SYSTEM, 12K FOR AN 16K SYSTEM, 18K FOR AN 24K SYSTEM, Q 

/AND 24K FOR AN 32K SYSTEM, EXTRA 4K PAGES DO NOT AFFECT 

/DATA BUFFER SIZE. 



o ^ 

/PROGRAM EXECUTION REQUIRES APPRQX. 2 1/2 MINUTES, 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



, EBREL 



o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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DTCOPY 


SRC 


o 










o 


00000 


R 


Ai^mm 


A 




0tiavii 


R 


;?5aK)000 


A 




00MW3 


R 


^i/}&?i(fid 


A 


o 


000^3 


R 


i:lHf1ft;H0 


A 




0'sl0ld4 


R 


'-114 0622 


R 




tit) 05 


R 


i-iwi^ass 


R 


o 


(di^00{3 


R 


P?424i^3 


A 




095107 


R 


1.7 2H31 


A 




M^giM 


R 


r-i^eiays!! 


A 


o 


Gii-JRU 


R 




A 




0;-3020 


R 


6)0!4^!fel0 


A 




(<)W02l 


R 


11000 My 


A 


o 


0a«22 


R 


f>\i^s%m 


A 




R0023 


R 


',10^000 


A 




0i<lM24 


R 


&)0^^!l«00 


A 


o 


B.3025 


R 


90000^ 


A 




0^026 


R 


1100^00 


A 




0W027 


R 


l>100000 


A 


o 


00030 


R 


'/10&1(/100 


A 




0W031 


R 


f;!00MPt0 


A 




t-JMSSa 


R 


f^000fe5iJ! 


A 


o 












0!;1033 


R 


iTtliSBBfeie 


A 


o 


00034 


R 


7«33M2 


A 




H'?lf135 


R 


2«M7aD 


R 




00036 


R 


740MB 1 


A 


o 


00037 


R 


041066 


R 




0'40 40 


R 


2(di^7X 


R 




0'^J041 


R 


100624 


R 


o 


0f;H'l42 


R 


XV}C'\7ilZ 


R 




0V5043 


R 


2i^Jiv)733 


R 




00044 


R 


74t')0fe>l 


A 


o 


0;^045 


R 


f!l41066 


R 




053046 


R 


201072 


R 




03047 


R 


100624 


R 


o 


aid^aei 


R 


100710 


R 


o 










o 










o 










o 










o 










o 










o 











OTCOPY 



UQDSW 



SYSERR 
ERCODE 



INIT 



ASKIN 



•TITLE 
/ 

400000 




.OSA 
.USA 
.SIXBT 

.BLOCK 





1.1 
& 




/ 
/ 


CAF 
LAC 

cnA 

DAC 

LAC 
JMS 
JMS 
LAC 
CHA 
OAC 
LAC 
JMS 
JhS 



.tJECT 



DTCQPY 



SERV 
INIT 
"DTCQPY" 



/SHUT OFF MONITOR 
HESSl /GET WC OF ME351 

/ 
Sti^Cn /SHIP TO SIXBT UNPACK ROUTINE 
CMESSi+1 /GET ADDR OF MESSl 



SBSTRP 
CRLF 

MEsaa 



/STRIP AND PRINT 
/GET HC OF MESS2 



SB'^C /SHIP TO SIXBT UNPACK ROUTINE 
CMESS2+1 /GET AOOR OF MESS2 
SBSTRP /STRIP AND PRINT 
KORD /GET ANSWER TO MESS2 

/RETURN WITH RESPONSE 

/IN CANSW+23 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o^ 



o 
o 
o 
o 
o 
o 

o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
o 
o 



o 



o 
o 
o 
o 

o 
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DTCQP^ 


' SRC 


0«05l 


R 


?;01«42 


R 


00U152 


R 


100610 


R 


wa053 


R 


7 4i?)2fci0 


A 


iftm54 


R 


%'AmA'ii 


R 


08055 


R 


^^■llW^g 


R 


00056 


R 


30lv473 


R 


0^057 


R 


744«20 


A 


014060 


R 


742«2H 


A 


00061 


R 


7401^20 


A 


0M062 


R 


^^4UJ57 


R 


00063 


R 


2WW740 


R 


00064 


R 


imm\ 


A 


0!<10d5 


R 


t^41066 


R 


0W0'36 


R 


2011^7 4 


R 


&)iiJ0o7 


R 


l«0624 


R 


00t17y 


R 


100710 


R 


0^071 


R 


201«42 


R 


0M072 


R 


100610 


R 


0W073 


R 


74020^ 


A 


00074 


R 


6-/10063 


R 


00075 


R 


291042 


R 


m^'/e 


R 


50107 3 


R 


wm77 


R 


744v!i20 


A 


00100 


R 


742i'3gfe) 


A 


0ijun 


R 


74M020 


A 


feiinas 


R 


S'JlviS? 


R 


Mwiwa 


R 


603112 


R 


0*4 ia4 


R 


•/!41B6« 


R 


00 1?^) 5 


R 


2^^1070 


R 


0i')lt^6 


R 


til 4 1 y 4 5 


R 


eel '^7 


R 


2W1076 


R 


W\I\WA 


R 


041053 


R 


mux 


R 


100551 


R 


00112 


R 


201914 


R 


110113 


R 


74«i301 


A 


0^114 


R 


ei4lis66 


R 


0«U5 


R 


20107 7 


R 


0yu6 


R 


100624 


R 


0MU7 


R 


100 702 


R 


00120 


R 


600043 


R 


00121 


R 


201057 


R 


001 2i? 


R 


707545 


A 


00123 


R 


201060 


R 


0(3124 


R 


707345 


A 


0'<)125 


R 


600033 


R 



DTCOPY 



A5KDUT 



UNITEQ 



RESTRT 



LAC ANSW+2 

J0S NUMBER 

S"4A 

J MP ASK IN 

LAC ANawt'2 

AND C7 

RCR? rtr; RAR 



/VALID UNIT*^ ? 



DAC UNTIN 



/STORE INPUT UNIT « 



LAC 

CM A 
DAC 
LAC 
J (13 
JMS 



LAC 
•IMS 
SZA 
JMP 
LAC 
AND 
RCR] 



MESS3 

SBWC 
CMESS3+1 
3BSTRP 
KBRD 



/GET WC OF MESS3 



AN3Wt2 
NUMBER 

A3KQUT 
ANSW+2 

RTR? 



/SHIP TO 3IXBT STRIP 



/GET ANSWER TO MESS3 
/RETURN WITH ANSWER 
/IN ANSW+a 

/VALID UNIT ^ ? 



RAR 



UNTIN 

UNITEQ 

UNTOUT 

C'-14000 

WC 

(30 

SKPBLK 

CORCHK 

MESS9 



SAD 

JMP 

DAC 

LAC 

DAC 

LAC 

DAC 

J MS 

LAC 

CMA 

DAC 

LAC 

J MS 

J MS 

JMP 

LAC 

DTLA 

LAC UNTOU 

OTLA 

JMP INIT 

.EJECT 



/STORE OUTPUT UNIT# 



/GET WC 



/FIND OUT 
OF MESS9 



HOW MUCH CORE? 



SBHC /SHIP TO SIXBT STRIP 
CMESS9+1 /GET ADOR OF 
SOSTRP /STRIP AND PRINT 
CRLF 

A3KIN 

UNTIN 



ROUTINE 
MESS9 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



^ o 
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/PASSl RKADS FROM INPUT UNIT AND WRITES ONTO OUTPUT UNIT, ^ 

/DATA BUFFER SIZE IS A FUNCTION OF AVAILABLE CORE, 
O 00126 R 141052 R PASS! 0/.M OURBLK (-) 

LAC BUFFER 

DAC* (31 
O 00131 R 3M1«S7 R LAC UNTIN Q 

JliS SEARCH 

LAC READ /READ DATA FROM INPUT UNIT 

O 0i'n34 R 7«7544 A DTXA Q 

LAC WC 

OAC* C3?5 
O 00137 R 1,0«454 rt JMS FLGCHK O 

SZA 

JMP ERROR 
O 0M142 R 3in^55?! R LAC STOP Q 

DTXA 

LAC BUFFER 
O 00145 H 06U00 R DAC* (31 Q 

LAC UNTOUT 

JMS SEARCH 
O mim R 201055 R LAC WRITE /WRITE DATA ONTO OUTPUT UNIT, O 

DTXA 

LAC WC 
O 00153 R 061if;i7e R OAC* (30 



o 
o 

o 



4 




DTCDPY SRC 


00126 


R 


141052 


R 


00127 


R 


2tUvi44 


R 


M0130 


R 


•^61 10VJ 


R 


00131 


R 


2«1'^57 


R 


00132 


R 


1 '/)'/) 3 52 


R 


0VJ133 


R 


2l'!l«54 


R 


0in34 


R 


7«7544 


A 


0W135 


R 


2mtj45 


R 


0H136 


R 


r>!6iB/e 


R 


00137 


R 


10«454 


R 


00140 


R 


7 4M2i.jgi 


A 


00141 


R 


600463 


R 


0Mi42 


R 


2i!5l«55ii1 


R 


00143 


R 


707544 


A 


09144 


R 


201044 


R 


00145 


H 


06U00 


R 


00146 


R 


201060 


R 


0^147 


R 


1««352 


R 


fe!£^l50 


R 


201055 


R 


00131 


R 


7W7544 


A 


03152 


R 


2^1 045 


R 


00153 


R 


C'l61if;i7e 


R 


00154 


R 


100454 


R 


00153 


R 


7 4«2ei!3 


A 


00156 


R 


60^1463 


R 


«0157 


R 


2M11J50 


R 


0vJ180 


R 


707544 


A 


0ai«l 


R 


20iei52 


R 


0!aia2 


R 


^'ilwSS 


R 


0Mlo3 


R 


C141052 


R 


(avn64 


R 


541101 


R 


0K)165 


R 


a^)ciiD7 


R 


M 1 6 6 


R 


5013127 


R 



JHS FLGCHK 
SZA 

O 00156 R 600463 R JMP ERROR 

LAC STOP 
DTXA 

O mini R 201^*52 R LAC OURBLK 



TAD SKPBLK 

DAC OURBLK /UPDATE BLOCK POINTER 



{J «vn64 R 541101 R SAD CXi<m 

-■■'■--- ■ -- - jf^p CHKll 

JMP PASSl+l 
O .EJECT 



o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
o 



( ' 



PAGE 



DTCOPY SRC 



o 
o 
o 
o 
o 
o 
o 



o 
o 

o 
o 
o 

o 



c 



o 
o 
o 
o 

o 



0M167 


R 


2BIM44 


R 


!M / 


R 


9l6mi!W 


R 


BiU/l 


R 


20U157 


R 


wfii/a 


R 


100352 


R 


[-iin/a 


R 


2t^lti54 


R 


Mia 1.74 


R 


707544 


A 


001/5 


R 


2011M2 


R 


00176 


R 


''')61W7t5 


R 


03177 


R 


10r')454 


R 


0w2i<ia 


R 


7402W0 


A 


00201 


R 


r305,1463 


R 


002!O2 


R 


2tni9 50 


R 


01>J2i^3 


R 


7M7544 


A 


0W2ia4 


R 


201044 


R 


0t32v5 5 


R 


!?)61100 


R 


0^206 


R 


201060 


R 


0l-)2l'j7 


R 


100352 


R 


('lySUI 


R 


2M1055 


R 


0«2U 


R 


7M7544 


A 


013212 


R 


201102 


R 


00213 


R 


^6\'47t> 


R 


0M214 


R 


1014454 


R 


00215 


R 


74020a 


A 


00216 


R 


(5«0463 


R 


0;^217 


R 


2aii^3i3 


R 


0U22B 


H 


7M7544 


A 


00221 


R 


20111^3 


R 


00222 


R 


;^4i052 


R 


014223 


R 


2Mli^44 


R 


0ia224 


R 


061100 


R 


00225 


R 


20 la 57 


R 


0«226 


R 


100413 


R 


00227 


R 


201054 


R 


Mfe)230 


R 


707544 


A 


M0231 


R 


20Ua2 


R 


00232 


R 


P161I/576 


R 


0ia233 


R 


100454 


R 


00234 


R 


7 40200 


A 


0iJ235 


R 


60M463 


R 


0W236 


R 


2^)1050 


R 


00237 


R 


7^7544 


A 


09240 


R 


201104 


R 


0i1241 


R 


'^61100 


R 


0i'j242 


R 


2f')lKi44 


R 


03243 


R 


'^61105 


R 


B0244 


R 


2aii^i?B 


R 


0^245 


R 


10^413 


R 


0«246 


R 


2Wie)54 


R 


00247 


R 


707544 


A 


510250 


R 


20HH2 


R 


00251 


R 


'J»6m76 


R 



OTCOPY 

/ FOLLOWING ROUTINE CHECKS TAPE SIZES, 
/ 1100 DR 1102 (OCT) BLOCKS, 
LAC BUFFER 



TAPE CAN HAVE 



CHKll 



CHKIN 



CHKOUT 



OAC* (31 
LAC UNTIN 
JrtS SEARCH 
LAC READ 

orxA 

LAC (-H300 

UAC* (30 

JMS FLGCHK 

S2A 

JHP ERROR 

LAC STOP 

DTXA 

LAC BUFFER 

DAC* (31 

LAC UNTOUT 

JMS SEARCH 

LAC WRITE 

PTXA 

LAC (-1000 

DAC* (3'^ 

JiiS FLGCHK 

SZA 

JMP ERROR 

LAC STOP 

DTXA 

LAC (1101 

DAC QURBLK 

LAC BUFFER 

PAC* (31 

LAC UNTIN 

JMS SEARCR 

LAC REAP 

DTXA 

LAC ("10«0 

DAC* (3W 

JflS FLGCHK 

SZA 

JMP ERROR 

LAC STOP 

DTXA 

LAC CCQHP 

DAC* (31 

LAC BUFFER 

PAC* (10 

LAC UNTOUT 

JMS SEARCR 

LAC READ 

DTXA 

LAC (-1(400 

DAC* t,M 



/CHECK INPUT TAPE 



/TAPE 
/TAPE 



HAS 

HAS 



1100 
1102 



BLOCKS 
BLOCKS, 



/CHECK OUTPUT TAPE 



/OUTPUT 
/OUTPUT 



TAPE 
TAPE 



HAS 
HAS 



1100 

1102 



BLOCKS 
BLOCKS 



o 
o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



O 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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DTCOPY SRC 



DTCQPY 



002U2 R l(>)i'l«J2^;1 R 
0id2f53 R 21-1,1.05^ R 
B«254 R 7147^44 A 



JMS CUMA«N 
LAC STOP 
OTXA 

,iiJECT 



o 
o 
o 
o 
o 
o 
o 

o 



o 

o 
o 
o 
o 
o 

u 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
o 
o 
o 
o 
o 
o 

o 



PAGE 



OTL'OPY SRC 



0i'l2ti5 


R 


2i<)U('t6 


R 


002S6 


R 


!^4UJ52 


R 


0'/)2ii7 


H 


2M1044 


R 


00260 


R 


361100 


R 


B^atiH 


R 


P.01057 


R 


0!42e>2 


R 


1(0!?1413 


R 


0(o2d3 


R 


2yi054 


R 


l?>«2S4 


R 


707544 


A 


00205 


H 


3['H«45 


R 


002t)6 


R 


r^6l07 6 


R 


00267 


K 


100454 


R 


M«270 


R 


7 402l^iK) 


A 


00271 


R 


6feni463 


R 


6)0272 


R 


201 050 


R 


00273 


R 


707544 


A 


013274 


R 


201B44 


R 


0027 5 


R 


iil61i05 


R 


00276 


R 


2!4Ulfl4 


R 


03277 


R 


06U00 


R 


003^0 


R 


2Hl06ia 


R 


0k130]l 


R 


100413 


R 


«M3y2 


R 


291^64 


R 


00303 


R 


707544 


A 


003i!i4 


R 


20lH'45 


R 


0i>)3(/t5 


R 


0610 76 


R 


0y3fe)6 


R 


100320 


R 


00307 


R 


201050 


R 


W03U} 


R 


707544 


A 


00311 


R 


201053 


R 


00312 


R 


34Hw7 


R 


00313 


R 


541052 


R 


00314 


R 


600343 


R 


0^315 


R 


740i<i01 


A 


M03i6 


R 


341^52 


R 


0W317 


R 


600256 


R 



TAD 
SAO 
JMP 
CMA 
TAD 
JMP 



aURBLK 
PASS2+1 



,eJECT 



/READ INPUT TAPE 



DTCOPY 

/ FOLLOWING ROUTINE IMPLEMENTS PASS2 TO CHECK FOR 
/DATA ERRORS, A PORTION OF THE INPUT TAPE IS READ INTO 
/CORE AND THEN A PORTION OF THE OUTPUT TAPE IS READ 
/AND NORO BY WORD CONPAREO TO INPUT. ANY ERROR RESULTS 
/IN THE TYPE OUT "DATA COMPARE ERROR", 
PASS2 LAC (l'^77 

OAC OURBLK 

LAC BUFFER 

DAC* C31 

LAC UNTIN 

vIMS SEARCR 

LAC READ 

DTXA 

LAC WC 

OAC* (30 

JMS FLGCHK 

S2 A 

JMP ERROR 

LAC STOP 

OTXA 

LAC BUFFER 

DAC* (10 

LAC (COMP 

DAC* (31 

LAC UNTOUT 

JHS SEARCR 

LAC READ 

DTXA 

LAC WC 

DAC* C3W 

JMS COMAGN 

LAC STOP 

UTXA 

LAG SKPSLK 

C-1 

OURBLK 

DONE 



/READ OUTPUT TAPE 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 

C) 
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o 



o 
o 



/COMPARE RQUTINt: 

/DURING THE READING OF THE OUTPUT TAPE THIS ROUTINE 
Q /SEES EACH DATA BREAK AND COMPARES THE DATA WORD O 

/TO THE APPROPRIATE WORD IN THE INPUT BUFFER, THIS 

/ELIMINATES THE NEED FOR A SUFFER IN CORE FOR THE 
O /OUTPUT TAPE DATA DURING PASS2. O 



o 
o 
o 
o 
o 
■o 
o 

o 



ett'J320 


R 


i-^wwaHfe) 


/ 
A CPMAGN M 


0W35JI 


R 


707573 


A 


DTEFiDTRB 


Ma 322 


R 


751000 


A 


SKPICLA 


00323 


R 


6f'1M463 


R 


JMP ERROR 


00324 


R 


7«7501 


A 


DTOF 


0^325 


R 


6'<'W327 


R 


JMP ,t2 


&'S'i26 


R 


62032i<i 


R 


JhP* COMAGN 


00327 


R 


221101^ 


R 


LAC* C31 


MM330 


K 


541104 


R 


SAO CCOMP 


0^331 


R 


SfilMSai 


R 


JMP COMAGNtl 


0M332 


R 


22UfeiB 


R 


LAC* (31 


M M 333 


R 


i34ia6l 


R 


DAC TEMP 


0kl334 


R 


2210&I 


R 


LAC* TEMP 


0H335 


R 


sgidona 


A 


SAD* la 


t!lB336 


R 


6i9034a 


K 


JMP ,+2 


00337 


R 


60^)463 


R 


JMP ERROR 


00349 


R 


?.^nM^>A 


R 


LAC CCOMP 


f;1!434i 


R 


^^61100 


R 


DAC* (31 


M0342 


R 


1100321 


R 


JMP COMAGN+1 


BM343 


R 


?0i'J/4S 


R DONE LAC MESS4 


00344 


R 


7 4i'}(;1feU 


A 


CMA 


0034S 


R 


<^141»66 


R 


OAC SBHC 


0^346 


R 


2'-ilU10 


R 


LAC (MESS 


0^347 


R 


10«624 


R 


JMS SBSTR 


00350 


R 


iwy7«2 


R 


JMS CRLF 


00351 


R 


e300043 


R 


JMP ASKIN 



o 
o 
o 

o 
o 
o 

Q BM343 R ?0i'J/4S R DONE LAC MESS4 /GET HC OF HESS4 



o 
o 
o 
c 
o 
o 
o 



/SHIP TO SIXBT UNPACK ROUTINE 
O aw346 R ;?..I1110 R LAC (MESS4 + 1 /GET ADOR OF MESS4 O 

- " ~ - /STRIP AND PRINT 

O 00351 R e3»t4043 R JMP ASKIN /PROGRAM COMPLETE O 

/SYSTEM E)<ERCISER MUST BE CALLED 

/IN AGAIN OR RESTARTED FROM 
O /tJNE OF THE RESTART ADDRESSES, O 

.EJECT 



o 
o 
o 
o 
o 
o 
o 
o 
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o 



o 

/ THE FQULOWING ROUTINE WILL SEARtJH FOR THE BLOCK NUMBER 

/ SPECIFIED BY THE CONTENTS OF OURBLK, THE DESIRED UNIT 

n / NUMBER MUST BE IN AC lilTS 0-2 UPON CALLING THE ROUTINE, Q 

/ CONTROL WILL RETURN TO USER WHEN 8L0CK IS FOUND IN 

/ THE FORWARD DIRECTION, 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



Q 093S2 R fil000fit3 A SEARCH 

01-3353 R r/)41056 R DAU UNIT 

00334 R 341046 R TAD SRCRVN 

O 0v:l355 R 707645 A DTLA 

«a356 R lt)t076 R OZH* iiB 

0id3!>7 R 100454 R JMS FLGCHK 

O 0^3360 R 74i'l!^0fe1 A SZA 

0(a36l R SB0376 R JMP SRCFWO 

01/1362 R gauiab! r lac* (31 

O 00363 R 'yl41061 R OAC TEMP 

00364 R 2214361 R LAC* TEMP 

«03Q5 R ?4f'l001 A CMA 

O 01(1366 R 341107 R TAD (-1 

0a367 R 341»52 R TAD OURBLK 

mnvi/i R 74t/nB0 a sma 

O t1037l R 6H«376 R JMP SRCFWO 

00372 K 361076 R DAC* (30 

(5W373 R 3P11047 R LAC MODE 

O Wy374 R 707544 A DTXA 

00375 R 10W464 R JM3 FLGCHK 

00376 R 2«lt!51 R SRCFWO LAC SRCFWN 
O 0W377 R 341(^56 R TAD UNIT 

004m)1!) R 707545 A DTLA 

0i4401 R 101^454 R JMS FLGCHK 

Q 00402 R 740280 A SZA 

00403 R 600463 R JMP ERROR 

01.3494 R 22nit)i3 R LAC* (31 

Q 00405 R 1^41061 R DAC TEMP 

00406 R aaiMSl R LAC* TEMP 

00407 R 341052 R SAD OURBLK 
O fi3410 R 620352 R JMP* SEARCH 

M0411 R 707554 A DTXA+l'^ 

0v)4l2 R 6«04l.'!l R JMP SRCPWD + 3 

Q .EJECT 



o 
o 
o 
o 
o 

o 



u 
o 
o 
o 
o 
o 
o 
o 

C) 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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DTCOPY SRC 



00413 

0B41S 
00416 
0W417 
03420 
0ii!42l 
00422 
i')M423 
0V3424 
00425 
014 428 
«ifJ4a7 
09430 
01-1431 
01^432 
00433 
00434 

00435 
CJW436 
00437 
0^440 
Bi')441 
0W44a 
H0443 
00444 
01^445 
^30446 
004 47 
0M450 
0^451 
0a4b2 
H&M53 



0!'54S4 
00455 
0^)456 
00457 
00460 
R04al 
t!0462 



R 
R 
R 
R 
R 
R 
R 



q ifl fl 
tl41'^56 
341^51 
161076 
7^7545 
100454 

flM0437 
22U0fi 

f-Miaai 

20li<i52 
7 40v«fe:!l 
3411617 
361061 
74<')lt(i0 
6iaf)437 
i?]61076 
2!dl047 
707544 
100454 
2i^i 11446 
341036 
7'>J7545 
100 454 
7 40200 
6^10463 
221100 
t=i 4 1 1'j 6 1 
221!dai 
541052 
620413 
707654 
60M442 



A 
H 
R 
H 
A 
R 
A 
R 
R 
R 
R 
A 
R 
R 
A 
R 
R 
R 
A 
R 
R 
R 
A 
R 
A 
R 
R 
R 
R 
R 
R 
A 
R 



'71 a f ) 'A d 

7«7573 

751«i00 
620464 
707601 
6 0455 
62'^454 



A 
A 
A 
R 
A 
R 
R 



DTCOPY 

/ A ROUTINE TO FIND A BLOCK NUMBER 3PECIF1EI3 BY OURBLK, 

/ UNIT NUMBER MUST BE IN AC, 

/ RETURN TU USER IS OQNE WHEN BLOCK IS 

/ FOUND IN THE REVERSE DIRECTION. 

SEARCR 

DAC UNIT 

TAO SRCEWN 

D'^M* (30 

QTLA 

Jf-lS FUGCHK 

SZA; JMP SRCREV 

LAC* C3l 
DAC TEMP 
LAC OURBLK 
CMA? TAU C-l 

TAD* TEMP 

SMA 

JMP SRCREV 

DAC* (30 

LAC MODE 

DTXA 

JMS FLGCHK 
SRCREV LAC SRCRVN 

TAO UNIT 

DTLA 

JMS FLGCHK 

S/CA 

JMP ERROR 

LAC* (31 

OAC TEMP 

LAC* TEMP 

SAD DURt3LK 

JMP* SEARCR 

DTXA+li' 

JiMP SRCREV + 3 
/ THE FOLLOWING ROUTINE WAITS FOR THE SETTING DP EITHER 
/ THE DECTaPE FLAG OR THE ERROR FLAG AND THEN RETURNS 
/ TO USER. IF THE ERROR FLAG IS SET , STATUS B WILL Q£ 
/ IN THE AC IF THE OECTAPE FLAG SET, AC=M. 
FLGCHK 

DTEFIDTRB 

SKPiCLA 

JMP* FLGCHK 

DTDF 

JMP ,-4 

JMP* FLGCHK 

.EJECT 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 



o 
o 
o 
o 
o 
o 
o 

C) 



V J 
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DTCDPY SRC 


o 










o 


M04i33 


R 


7'/l7S72 


A 




00-<164 


R 


f14lw67 


R 




ILI a 4 Q 5 


R 


7 4fil0lii 


A 


o 


00406 


R 


600&21 


R 




0(-J4c>7 


R 


7^?J)Xi) 


A 




0^470 


R 


7 4t'iaUl 


A 


o 


00 471 


R 


7<l(MW0 


A 




(>!0472 


R 


S0fl501 


R 




0I1I473 


R 


20t)3bg 


R 


o 


0id474 


R 


50UU 


R 




ei<i475 


R 


341U2 


R 




i!5 4 7 6 


R 


fSlrJCi25f5 


R 


o 


0(3477 


R 


541U3 


R 




fe•^iJ5!')0 


R 


600531 


R 


o 


035(^1 


R 


7 40100 


A 




01^502 


R 


6HH514 


R 




0^^503 


R 


201«26 


R 


o 


d'iS^A 


R 


740^01 


A 




005135 


R 


■^41^66 


R 




ISi'JSi.de 


R 


201114 


R 


o 


niiisa7 


R 


10i;iqS4 


R 




00510 


R 


100702 


R 




^t45U 


R 


201^67 


R 


o 


00512 


R 


7 4i>itM0 


A 




0B513 


R 


600043 


R 




00314 


R 


201«(i3** 


R 


o 


(JI0515 


R 


7 4Pl0til 


A 




00516 


H 


•■^41066 


R 




0ia5l7 


R 


2131115 


R 


o 


a«sa0 


R 


600507 


R 


o 










o 










o 










o 










o 










o 










o 










o 










o 











PTCOPY 

/ FOLLOWING ROUTINE INTeRPRET ANY ERR0R3 FQUNO, PASS2 
/DATA COMPARE ERRORS 
ERROR DTRB 

OAC SoBERRi* 

5MA 

JflP DATAE 

RTL? RAL 



SHL 
JMP 
LAC 
AND 
SAD 
JMP 
SAD 
J HP 



REALER 
SEARCH 
(.^77777 

(CHKIN 
PASSg 
CCNKOUT 
BLKERR 



/REALERsSTATUS B ERROR 



REALER 



REAL.M 



REAL.l 



SHA 
JMP 
LAC 
CilA 
DAC 
LAC 

JMS 
JhS 
L A irf 
HLT 
JilP 
LAC 
CIA 
DAC 

In A Iff 

JHP 
.EJECT 



REAL.l 
MESS10 



7QTHER STATUS B ERRORS 



SBHC 

CiMESSl0 + l 
S8STRP 

CRLP 
SSBERR 



ASKIN 
MESSU 



/RESTART 



S8WC 

CHESSU + 1 
REAL.0 



o 



o 



o 



o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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00S21 
0^522 
«i4523 
0M524 
0(3525 
fia526 
00527 
005vi» 

03531 
0ia532 
0i;4635 
00534 
00535 
00536 
('H')537 
0(3540 
0a541 
0i^542 
0M543 
kl lei 5 4 4 
0M545 
0W546 
«i0547 
0055W 



PTCOPY SRC 



DTCUPy 



R 
H 
H 
H 
R 
R 
H 
R 

R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 



2 1^1 1 rt 5 6 
71-17545 
2lHt7 5W 
74Hain 
''141066 

20111*3 

100624 
6 ('1010 4 3 



740 
514 1 
2«1 

10« 

20P) 

«14l 
2i^l 

041 
201 
1«0 



R 

A 



757 R 

0141 A 

066 R 

117 R 

624 R 
7 63 

fe301 

aea R 

12W R 

624 R 

777 R 

1:3 i'U A 

1.166 R 

121 R 

o24 R 

255 R 



/OATAE 
DATAE 



sDATA COMPARE 
UAC UNIT 
DTLA 



ERROR, 



LAC 
CMA 
PAC 
LAC 
J MS 
J MP 



HESSS 

SBHC 

CMES55+1 
SBSTRP 
ASKIN 



/BLKERRsOUTPUT 
BLKERR LAC 
CMA 

PAC 

LAC 
JiiS 
LAC 
CMA 
DAC 
LAC 
JMS 
LAC 
CMA 
DAC 
LAC 
JMS 
JMP 
.EJECT 



TAPE HAS 1100 
MESS6 

SBWC 

(MESS6+1 
SBSTRP 
MESS7 

SBHC 
CMESS7-M 
SBSTRP 
MESS8 



SBHC 

CMESSBtl 
SBSTRP 
PASS2 



/RETURN TO 
BLOCKS, INPUT 



START rJF PROGRAM 
TAPE 1102. 



u 
o 
o 
o 
o 
o 
o 



1 \ 



o 
o 
o 

o 

o 

u 

o 
o 
o 
o 
o 
o 
o 
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DTCQPY SRC 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



OTCQPY 
/FIND OUT CORt SIZE AND ADJUST SUFFER ACCORDINGLY. 



0ki5d1 


R 


£10 0000 


A 


CORCHK 




00S5S 


R 


301122 


R 


LAC 


C-3 


0W553 


R 


04 1062 


R 


DAC 


COUNT 


0t^S54 


R 


2^10551 


R 


LAC 


CQRCHK 


0«555 


R 


5011 S3 


R 


ANO 


C70000 


00556 


R 


541123 


R 


SAO 


C7000W 


00 557 


R 


600 57 3 


R 


JrIP 


LOOP 


M0560 


R 


441062 


R 


ISZ 


COUNT 


0td561 


R 


34U84 


R 


SA0 


(60000 


00502 


R 


6W0 57 3 


R 


J MP 


LOOP 


00503 


R 


541125 


R 


SAO 


C50000 


01^564 


R 


600573 


R 


JMP 


LOOP 


005(55 


R 


441062 


R 


ISZ 


COUNT 


09566 


R 


541126 


R 


SAP 


(49000 


00567 


R 


600573 


R 


JMP 


LOOP 


00570 


R 


541127 


R 


SAO 


(30000 


00571 


R 


600573 


R 


JMP 


LOOP 


0057 2 


R 


600126 


R 


JMP 


PASSl 


00573 


R 


201062 


R 


LOOP LAC 


COUNT 


0^574 


R 


041001 


R 


DAC 


TEMP 


00 57 5 


R 


201045 


R 


LAC 


WC 


0id576 


R 


341045 


R 


TAD 


WC 


00577 


R 


441062 


R 


ISZ 


COUNT 


00600 


R 


600576 


R 


JMP 


."2 


00601 


R 


041R45 


R 


OAC 


WC 


00602 


R 


^01053 


R 


LAC 


SKPSLK 


00603 


R 


341053 


R 


TAD 


SKPBLK 


\a^6v}4 


R 


441061 


R 


ISZ 


TEMP 


00605 


R 


600603 


R 


JMP 


,-2 


006a6 


R 


041053 


R 


DAC 


SKPOLK 


00607 


R 


600126 


R 


JHP 


PASSl 


00610 


R 


M f'l W M 


A 


NUMBER 




meix 


R 


501130 


R 


AND 


i77 


6i06lg 


R 


341131 


R 


TAO 


(-50 


00613 


R 


741 100 


A 


SPA 




00614 


R 


600617 


R 


JHP 


. + 3 


006 IS 


R 


341132 


R 


TAO 


("U 


00616 


R 


7 40100 


A 


SNA 




00617 


R 


751001 


A 


CLA 


.CMAISKP 


00 620 


R 


750000 


A 


CLA 




00621 


R 


620610 


R 


JMP- 


•f NUMBER 


00622 


R 


-^100000 


A 


SERV 




00623 


R 


741-1040 


A 


HLT 












.tJECT 



/CHECK FOR VALID UNIT U, 



/ILLEGAL ENTRY INTO DTCOPY MODULE. 



o 
o 
o 
o 
o 
o 



o 



o 
o 



o 



o 
o 

o 
o 
o 
o 

u 

o 

o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

Q 

o 
o 
o 
o 

o 

o 
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DTCOPY SRC 



DTCUPY 



00624 R "-/(BPlMWl;) A 

00625 R 514 1.065 R 
Wi^62D R ^21W6£J R 
096^7 R 740W10 A 
006«i0 R 742»i0 A 
03631 R 7 4201 W A 

00642 R 742&1US A 
00633 R 5141130 K 
0^634 R S41133 R 

00635 R 62PI624 R 

00636 R 100661 R 
0H637 R 221(565 R 
0(d64§l R 7 42820 A 
0^641 R 7A2<02^f A 
a!!l642 R 742M20 A 

00643 R !?01130 R 

00644 R S4U33 R 

00645 R 62(')624 R 

00646 R lv3v)661 R 

00647 R 2211-^65 R 
0i3650 R 50U30 R 
&R)651 R 541133 R 
00652 R 620624 R 
0kd633 R lvl«66l H 
00654 R 441^66 R 
fel0655 R 741W100 A 
00656 R 620624 R 
0i;^657 R 441B65 R 
0!^66M R 600626 R 



SBSTRP 





DAC 

UAC* 

RAL 

RTL 

RTL 

RTU 

ANO 

SAO 

jnP* 

JH3 

LAC* 

RTR 

RTR 

RTR 

ANO 

3AD 

JflP* 

JH3 

UAC* 

AND 

SAP 

JMP* 

JMS 

lai 

SKP 
JMP* 
1 37. 
JMP 
,£JECT 



Si3TEHP^ 
SBTtMP 



(0 

SBSTRP 
TYPE 
SBTEMP 



/ENTRANCE REQUIRES THAT -WC 
/BE PRESENT IN SawC AND 
/ADOR OF MESSAGE BE IN A,C, 

/SAVE ADOR 
/GET CMARA 

/ROTATE FIRST 



/HASK FIRST 



C0«0077 

C0 

SBSTRP 

TYPE 

SBTEMP 

C00a077 

C0 

SBSTRP 

TYPE 

3BNC 

SBSTRP 
SBTEMP 
SBSTRP+2 



/PRINT IT 
/GET CHARA 

/ROTATE SECOND 
/HASK SECOND 



/PRINT IT 
/GET CHARA 
/flASK THIRD 



/PRINT IT 

/INC, nc 

/OO HQRE 

/EXIT 

/INC, MESS ADDR 

/STRIP NEXT 



o 
o 
o 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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DTCUPV 


SRC 


o 










o 


M>^t5!3:l 


R 


f^ti&iaaw 


A 




00662 


R 


■44 j,(/!7 


R 


o 


Ht46o3 


F? 


341134 


R 




00664 


R 


7 4 0100 


A 




K0665 


R 


6wi'l671 


R 


o 


aaeae 


R 


501(^70 


R 




00667 


R 


34U35 


R 




0w67ej 


R 


600673 


R 


o 


0^671 


R 


201070 


R 




f<i0fi7a 


R 


341136 


R 




00673 


R 


100675 


R 


o 


00674 


R 


620ec?l 


R 




0M675 


R 


000fe)0W 


A 




0^676 


R 


700406 


A 


o 


0WB77 


K 


70B4SfJl 


A 




007i'i0 


R 


60£^677 


R 




01.5701 


R 


f^2rltJ75 


H 


o 


0^^702 


R 


«i00W0ia 


A 




00703 


R 


20U37 


R 




5)070 4 


R 


t B«676 


R 


o 


00705 


R 


20lH'iS 


R 




00706 


R 


1015) f)75 


R 




m7'&7 


R 


6807&2 


R 


o 










o 


00710 


R 


?lit)0&0t?' 


A 




00711 


R 


7s303fc)l 


A 




0y7l2 


R 


65101711 


R 


o 


00713 


R 


7^^'i\Z 


A 




%'A7\t\ 


R 


54 1,141 


R 




M0715 


R 


600722 


R 


o 


0v^)7l6 


R 


54U37 


R 




0^717 


R 


i50f'l724 


R 




007^0 


R 


341042 


R 


o 


09721 


R 


6«07U 


R 


s.-^ 


»07a2 


R 


141042 


R 




00723 


R 


600711 


R 


o 


05^724 


R 


Ife) 14702 


R 


s— ' 


03725 


R 


6207 U4 


R 



o 
o 
o 
o 



o 



u 



DTCOPY 

/fcNTRANCE MUST BE MADE W 
/CHARACTER TO 8E PRINTED 
7IN THE AC 



ITH 



TYPE 



PRINT 



CRLF 



W 

DAC 

TAD 

SMA 

JflP 

LAC 

TAD 

J HP 

LAC 

TAD 

JMS 

JMP* 

TLS 

TSK 

JMP 

JMP* 

M 

LAG 

JMS 

LAC 

J!i3 

JMP* 



TYPE,!^* 
C777740 

«+4 

TYPE.l 
C300 
.+3 

TYPE,! 
C200 
PRINT 
TYPE 



PRINT 

(215 

PRINT 
C212 
PRINT 
CRLF 



/SAVE 



/NUMERIC 
/ALPHA 



/PRINT 
/WAIT 
/LOOP 
/EXIT 



/EXIT IS MADE WITH SINGL 
/INPUT CHARACTER IN 
/ANSW+2, 



E 



KBRD 



KBRDl 





K5F 

J lip 

KR8 

SAD 

JMP 

SAD 

JHP 

DAC 

JHP 

DZN 

JHP 

JMS 

JMP* 

.EJECT 



.-I 

C377 

KBRDl 

(215 

KORDl+2 

ANSW+2 

K9RD+1 

ANSW+2 

KBRD+1 

CRLF 

K8RD 



/WAIT 

/LOOP 

/GET CHARA 

/RUBOUT 

/YES 

/CARRIAGE RETURN 

/SAVE IT 
/GET TERMINATOR 
/CLEAR PREVIOUS 
/GET NEXT 



o 
o 
o 



o 



o 



yj 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



PAGE la DTCOPY SRC DTCOPY 

O 

P1i:)726 R ili/JBiaa^ A MfcSSl HtSSa-MEoS 1- 1 

Hw727 R il4(')f3io3 A .SIXBT "OECTAPE COPY" 

Q i/m7iVi H 34012W A 

VJ<A7'6l R <^5A[']\/\'6 A 

00732 R 172M31 A 

O 0t'i7;53 R 01^0004 A MESSg MESS3"MESS2"1 

&^y/'AA R U1620 A p3lX0T "INPUT UNIT:" 

00735 R 252440 A 

O \d'a7'A6 R 251611 A 

^li?^? H 2472aidi A 

01^740 R f^0(^004 A MES53 MESS4-MESS3- 1 

O 0«741 R 172524 A .SIXBT "OUTPUT UNIT:" 

0S'J742 R 2^2524 A 

0(3743 R 4fj25l6 A 

O 09744 R U2472 A 

0^745 R f'100L3fe2 A MES54 MESS5-HESS4-1 

0074B R t^4r/16 A , SIXBT "DONEl" 

O 00747 R f?)54100 A 

Mi-')750 R !?('3(aM06 A MESS5 MESSe-MESSS-l 

00751 R (-^40124 A .SIXBT "DATA COMPARE ERROR" 



U 



m752 R 014003 A 
0^1753 R 171520 A 
Hi^754 R 5.112205 A 

A 



Q 'A'~A7o5 R 400522 

0'4756 R 221722 A 

1^7 '67 R ^^00003 A HeSSg MeSS7-MESS6"l 

O ti^7tj0 R 270122 A .SIXBT "WARNINGJ" 

00761 R 1.61110 A 

00762 R r74100 A 

O 00763 R mmni A M£SS7 HESS8-MESS7-1 

00764 R 111620 A .SIXBT "INPUT UNIT HAS U02 (OCT) 8U0CKS," 

Ha7tj5 R 252440 A 

O 9W766 R 251611 A 

0H7i57 R 24401>3 A 

idi^77^ R '41234^1 A 

O 0M771 R 616160 A 

0M772 R 624050 A 

My773 R 17^)324 A 

Q i!>d774 R 514002 A 

00775 R 141703 A 

«077ti R 132356 A 

O 9m777 R fA-i^id^)lA A f1ESS8 MESS9-MtSS8-l 

01000 R 172524 A .SIXBT "OUTPUT UNIT HAS 1100 (OCT) BUOCKS," 

01001 R 202524 A 
Q mW!^2 R 4vl25l6 A 

010(^3 R 11244i;) A 

01004 R 1W0123 A 

Q 01005 R 406161 A 

010^6 R S0604M A 

010(i7 R 501703 A 

O 01010 R 24514k1 A 
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